home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 279
- Top = 224
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'CDmax'
- ClientHeight = 212
- ClientWidth = 409
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = mmnMain
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object pnlButton: TPanel
- Left = 7
- Top = 72
- Width = 158
- Height = 47
- BevelInner = bvLowered
- TabOrder = 2
- object spbPlay: TSpeedButton
- Left = 4
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Play'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333330333333
- 3333333333833333333333333003333333333333338833333333333330003333
- 3333333333888333333333333000033333333333338888333333333330000033
- 3333333333888883333333333000000333333333338888883333333330000003
- 3333333333888888333333333000003333333333338888833333333330000333
- 3333333333888833333333333000333333333333338883333333333330033333
- 3333333333883333333333333033333333333333338333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbPlayClick
- end
- object spbStop: TSpeedButton
- Left = 29
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Stop'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333000000000
- 0333333888888888833333300000000003333338888888888333333000000000
- 0333333888888888833333300000000003333338888888888333333000000000
- 0333333888888888833333300000000003333338888888888333333000000000
- 0333333888888888833333300000000003333338888888888333333000000000
- 0333333888888888833333300000000003333338888888888333333000000000
- 0333333888888888833333300000000003333338888888888333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbStopClick
- end
- object spbPause: TSpeedButton
- Left = 54
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Pause'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333000033000
- 0333333888833888833333300003300003333338888338888333333000033000
- 0333333888833888833333300003300003333338888338888333333000033000
- 0333333888833888833333300003300003333338888338888333333000033000
- 0333333888833888833333300003300003333338888338888333333000033000
- 0333333888833888833333300003300003333338888338888333333000033000
- 0333333888833888833333300003300003333338888338888333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbPauseClick
- end
- object spbEject: TSpeedButton
- Left = 79
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Eject'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333000000000
- 0333333888888888833333300000000003333338888888888333333333333333
- 3333333333333333333333300000000003333338888888888333333300000000
- 3333333388888888333333333000000333333333388888833333333333000033
- 3333333333888833333333333330033333333333333883333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbEjectClick
- end
- object spbPrev: TSpeedButton
- Left = 104
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Previous Track'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333003
- 3333333333333388333333333330300333333333333383883333333333003003
- 3333333333388388333333333000300333333333338883883333333300003003
- 3333333338888388333333300000300333333333888883883333333000003003
- 3333333388888388333333330000300333333333388883883333333330003003
- 3333333333888388333333333300300333333333333883883333333333303003
- 3333333333338388333333333333300333333333333333883333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbPrevClick
- end
- object spbNext: TSpeedButton
- Left = 129
- Top = 8
- Width = 25
- Height = 30
- Cursor = crHandPoint
- Hint = 'Next Track'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333003333333
- 3333333388333333333333300303333333333333883833333333333003003333
- 3333333388388333333333300300033333333333883888333333333003000033
- 3333333388388883333333300300000333333333883888883333333003000003
- 3333333388388888333333300300003333333333883888833333333003000333
- 3333333388388833333333300300333333333333883883333333333003033333
- 3333333388383333333333300333333333333333883333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = spbNextClick
- end
- end
- object pnlTimeDisplay: TPanel
- Left = 7
- Top = 2
- Width = 158
- Height = 69
- BevelInner = bvLowered
- Color = clBlack
- TabOrder = 3
- object lblMode: TLabel
- Left = 3
- Top = 45
- Width = 152
- Height = 20
- Alignment = taCenter
- AutoSize = False
- Caption = 'Playing'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Layout = tlCenter
- end
- object lblTime: TLabel
- Left = 3
- Top = 4
- Width = 152
- Height = 39
- Alignment = taCenter
- AutoSize = False
- Caption = '[00] <00:00>'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -24
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Layout = tlCenter
- end
- end
- object pnlTrackBar: TPanel
- Left = 7
- Top = 120
- Width = 266
- Height = 65
- BevelInner = bvLowered
- TabOrder = 0
- object lblScbStart: TLabel
- Left = 7
- Top = 27
- Width = 27
- Height = 13
- Caption = '00:00'
- ParentShowHint = False
- ShowHint = True
- end
- object lblScbEnd: TLabel
- Left = 231
- Top = 27
- Width = 27
- Height = 13
- Hint = 'Current track length'
- Caption = '00:00'
- ParentShowHint = False
- ShowHint = True
- end
- object lblScbPosition: TLabel
- Left = 119
- Top = 27
- Width = 27
- Height = 13
- Caption = '00:00'
- end
- object scbMain: TScrollBar
- Left = 7
- Top = 42
- Width = 251
- Height = 16
- Cursor = crHandPoint
- Hint = 'Track progress / Skip Frwd-Bkwd'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnScroll = scbMainScroll
- end
- object cboTracks: TComboBox
- Left = 7
- Top = 5
- Width = 251
- Height = 21
- Hint = 'Current Track / Playlist'
- Style = csDropDownList
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = cboTracksClick
- OnDropDown = ComboBoxDropDown
- end
- end
- object pnlVolume: TPanel
- Left = 274
- Top = 2
- Width = 129
- Height = 183
- BevelInner = bvLowered
- TabOrder = 1
- object cdvMain: TCdVolume
- Left = 8
- Top = 3
- Width = 113
- Height = 177
- SyncDown = False
- MuteDown = False
- DeviceItemIndex = -1
- end
- end
- object pnlStatus: TPanel
- Left = 0
- Top = 193
- Width = 409
- Height = 19
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 4
- object sttArtist: TStaticText
- Left = 0
- Top = 2
- Width = 4
- Height = 4
- Hint = 'Artist'
- BorderStyle = sbsSunken
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = True
- TabOrder = 0
- end
- object sttTitle: TStaticText
- Left = 32
- Top = 2
- Width = 4
- Height = 4
- Hint = 'Title'
- BorderStyle = sbsSunken
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = True
- TabOrder = 1
- end
- object sttTrackCnt: TStaticText
- Left = 348
- Top = 2
- Width = 4
- Height = 4
- Hint = 'Playlist track count'
- BorderStyle = sbsSunken
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = True
- TabOrder = 2
- end
- object sttTime: TStaticText
- Left = 372
- Top = 2
- Width = 4
- Height = 4
- Hint = 'Playlist time'
- BorderStyle = sbsSunken
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = True
- TabOrder = 3
- end
- end
- object pnlTools: TPanel
- Left = 166
- Top = 2
- Width = 107
- Height = 117
- BevelInner = bvLowered
- TabOrder = 5
- object spbOptions: TSpeedButton
- Left = 3
- Top = 90
- Width = 54
- Height = 21
- Cursor = crHandPoint
- Hint = 'edit options'
- Caption = '&Options'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = mmiOptionClick
- end
- object spbRetrieve: TSpeedButton
- Left = 3
- Top = 69
- Width = 54
- Height = 20
- Cursor = crHandPoint
- Hint = 'retrieve from CDDB'
- Caption = 'Retrieve'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = mmiRetrieveClick
- end
- object spbSubmit: TSpeedButton
- Left = 59
- Top = 69
- Width = 45
- Height = 20
- Cursor = crHandPoint
- Hint = 'submit to CDDB'
- Caption = 'Submit'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = mmiSubmitClick
- end
- object spbContents: TSpeedButton
- Left = 3
- Top = 48
- Width = 101
- Height = 20
- Cursor = crHandPoint
- Hint = 'edit contents'
- Caption = '&Contents'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = spbContentsClick
- end
- object spbTimeFormat: TSpeedButton
- Left = 3
- Top = 6
- Width = 101
- Height = 20
- Cursor = crHandPoint
- Hint = 'change time display'
- Caption = '&Track Remaining'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = spbTimeFormatClick
- end
- object spbRepeat: TSpeedButton
- Left = 3
- Top = 27
- Width = 101
- Height = 20
- Cursor = crHandPoint
- Hint = 'change repeat option'
- Caption = '&Repeat : Playlist'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = spbRepeatClick
- end
- object cboDefaultDrive: TComboBox
- Left = 59
- Top = 91
- Width = 45
- Height = 21
- Hint = 'CD drives'
- Style = csDropDownList
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = cboDefaultDriveClick
- end
- end
- object mmnMain: TMainMenu
- Left = 51
- Top = 168
- object mmiFile: TMenuItem
- Caption = '&File'
- object mmiRetrieve: TMenuItem
- Caption = '&Retrieve from CDDB'
- ShortCut = 116
- OnClick = mmiRetrieveClick
- end
- object mmiSubmit: TMenuItem
- Caption = '&Submit to CDDB'
- ShortCut = 119
- OnClick = mmiSubmitClick
- end
- object mmiImportExport: TMenuItem
- Caption = '&Import/Export...'
- ShortCut = 16457
- OnClick = mmiImportExportClick
- end
- object mmiSep01: TMenuItem
- Caption = '-'
- end
- object mmiExit: TMenuItem
- Caption = 'E&xit'
- ShortCut = 32883
- OnClick = mmiExitClick
- end
- end
- object mmiEdit: TMenuItem
- Caption = '&Edit'
- object mmiContents: TMenuItem
- Caption = '&Contents...'
- ShortCut = 32835
- OnClick = spbContentsClick
- end
- object mmiOption: TMenuItem
- Caption = '&Options...'
- ShortCut = 32847
- OnClick = mmiOptionClick
- end
- object mmiTimeFont: TMenuItem
- Caption = 'Time Fo&nt...'
- ShortCut = 32846
- OnClick = mmiTimeFontClick
- end
- end
- object mmiPlayer: TMenuItem
- Caption = '&Player'
- object mmiPlay: TMenuItem
- Caption = '&Play'
- ShortCut = 16464
- OnClick = spbPlayClick
- end
- object mmiStop: TMenuItem
- Caption = '&Stop'
- ShortCut = 16467
- OnClick = spbStopClick
- end
- object mmiPause: TMenuItem
- Caption = 'P&ause'
- ShortCut = 16449
- OnClick = spbPauseClick
- end
- object mmiEject: TMenuItem
- Caption = '&Eject'
- ShortCut = 16453
- OnClick = spbEjectClick
- end
- object mmiNext: TMenuItem
- Caption = '&Next'
- ShortCut = 16462
- OnClick = spbNextClick
- end
- object mmiPrev: TMenuItem
- Caption = 'P&revious'
- ShortCut = 16466
- OnClick = spbPrevClick
- end
- end
- object mmiHelp: TMenuItem
- Caption = '&Help'
- object mmiWebPage: TMenuItem
- Caption = '&CDmax Web Page...'
- OnClick = mmiWebPageClick
- end
- object mmiSetDefaultPlayer: TMenuItem
- Caption = '&Set Default Player...'
- OnClick = mmiSetDefaultPlayerClick
- end
- object mmiAbout: TMenuItem
- Caption = '&About...'
- OnClick = mmiAboutClick
- end
- end
- end
- object traMain: TTrayIcon
- Icon.Data = {<image000.ico>}
- Enabled = False
- PopupMenu = pmnMain
- AutoShow = True
- Left = 79
- Top = 168
- end
- object pmnMain: TPopupMenu
- Left = 107
- Top = 168
- object pmiRestore: TMenuItem
- Caption = 'View Player'
- OnClick = pmiRestoreClick
- end
- object pmiSep01: TMenuItem
- Caption = '-'
- end
- object pmiContents: TMenuItem
- Caption = 'Contents...'
- OnClick = spbContentsClick
- end
- object pmiOptions: TMenuItem
- Caption = 'Options...'
- OnClick = mmiOptionClick
- end
- object pmiSep04: TMenuItem
- Caption = '-'
- end
- object pmiRetrieve: TMenuItem
- Caption = 'Retrieve...'
- OnClick = mmiRetrieveClick
- end
- object pmiSubmit: TMenuItem
- Caption = 'Submit...'
- OnClick = mmiSubmitClick
- end
- object pmiSep03: TMenuItem
- Caption = '-'
- end
- object pmiPlay: TMenuItem
- Caption = '&Play'
- OnClick = spbPlayClick
- end
- object pmiStop: TMenuItem
- Caption = '&Stop'
- OnClick = spbStopClick
- end
- object pmiPause: TMenuItem
- Caption = 'P&ause'
- OnClick = spbPauseClick
- end
- object pmiEject: TMenuItem
- Caption = '&Eject'
- OnClick = spbEjectClick
- end
- object pmiPrev: TMenuItem
- Caption = 'P&revious Track'
- OnClick = spbPrevClick
- end
- object pmiNext: TMenuItem
- Caption = '&Next Track'
- OnClick = spbNextClick
- end
- object pmiSep02: TMenuItem
- Caption = '-'
- end
- object pmiExit: TMenuItem
- Caption = 'Shutdown'
- OnClick = mmiExitClick
- end
- end
- object inoMain: TIniOut
- Items.Strings = (
- 'frmMain;Left;0;Software\Tisdale\CDmax\frmMain;Left;1;0'
- 'frmMain;Top;0;Software\Tisdale\CDmax\frmMain;Top;1;0'
-
- 'lblTime;Font;1|clGreen|-24|MS Sans Serif|fpDefault|18|[];Softwar' +
- 'e\Tisdale\CDmax\frmMain\lblTime;Font;1;0'
-
- 'cdvMain;MuteDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Mu' +
- 'teDown;1;0'
-
- 'cdvMain;SyncDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Sy' +
- 'ncDown;1;0'
-
- 'cboDefaultDrive;Items;;Software\Tisdale\CDmax\frmMain\cboDefault' +
- 'Drive;Items;1;0'
-
- 'cdvMain;DeviceItemIndex;0;Software\Tisdale\CDmax\frmMain\cdvMain' +
- ';DeviceItemIndex;1;0')
- RegistryRoot = CURRENT_USER
- Left = 135
- Top = 168
- end
- object fdlMain: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Options = [fdAnsiOnly, fdEffects]
- Left = 163
- Top = 168
- end
- end
-